Aminet 1 (Walnut Creek)/Aminet - June 1993 [Walnut Creek].iso/aminet/mus/play/multiplsr.lha/windowspec.gui

Text File | 1992-09-14 | 4KB | 177 lines

/*
 * MultiPlayer
 * Copyright (C) 1992 Bryan Ford
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 * I (the author of MultiPlayer) can be contacted on the Internet at
 * "[e-mail]".  See "Player.doc" for other addresses.
 *
 * $Id: windowspec.gui,v 4.3 92/07/20 20:04:39 BAF Exp $
 * Main window user interface specification
 *
 */

window xdef _windowspec
    screen import _playerscreen
    left import _tinywinleft top import _tinywintop width 312 height -2
    zleft import _zoomwinleft ztop import _zoomwintop
    CLOSEWINDOW RAWKEY MOUSEBUTTONS ACTIVEWINDOW INACTIVEWINDOW REFRESHWINDOW changewindow
    BUTTONIDCMP CHECKBOXIDCMP CYCLEIDCMP TEXTIDCMP SLIDERIDCMP
    DRAGBAR DEPTHGADGET CLOSEGADGET SIMPLE_REFRESH RMBTRAP
  end

text
    export _windowmodgad
    label "Module" minchars 30
    labelleft border endrow
  end

text
    export _windowtypegad
    label "Type" minchars 30
    labelleft border endrow
  end

text
    export _windowauthorgad
    label "Author" minchars 30
    labelleft border endrow
  end

cycle
    export _windowsonggad
    label "Song" minchars 30
    call _gui_windowsong
    options array "" null end
    labelleft endrow
  end

slider
    export _windowvolumegad
    label "Volume"
    call _gui_windowvolume
    labelleft
    min 0 max 100 level 100
    disabled
  end

slider
    export _windowbalancegad
    label "Balance"
    call _gui_windowbalance
    labelleft
    min -50 max 50 level 0
    disabled
  end

button
    export _windowbalanceresetgad
    label "=" call _gui_windowbalancereset
    disabled endrow
  end

slider
    export _windowspeedgad
    label "Speed"
    call _gui_windowspeed
    labelleft
    min 50 max 1000 level 50
    disabled
  end

button
    export _windowjumpbackgad
    label "<<" call jumpback
    disabled
  end

button
    export _windowjumpforwardgad
    label ">>" call jumpforward
    disabled endrow
  end

button
    label "New"
    call _gui_windownew
  end

button
    label "Play"
    call _gui_play
  end

button
    label "Cont"
    call _gui_cont
  end

button
    label "Stop"
    call _gui_stop
  end

button
    label "Eject"
    call _gui_windoweject
  end

button
    label "Prev"
    call _gui_windowprev
  end

button
    label "Next"
    call _gui_windownext endrow
  end

button
    label "Program"
    call _gui_progwinopenclose
  end

button
    label "Prefs"
    call _gui_prefswinopenclose
  end

button
    label "Settings"
    call _gui_settingswinopenclose
  end

button
    label "Info"
    call _gui_infowinopenclose endrow
  end

endcap

filerequester xdef _windowfrspec
    title "Select modules"
    ok struct 4
    pattern "~((#?.info)|(Player))"
    donectrlf
    window struct 0
    multiselect
    left import modfrleft
    top import modfrtop
    width import modfrwidth
    height import modfrheight
  end